home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / communic / autod3.zip / AUTODIAL.XWS next >
Text File  |  1991-01-12  |  4KB  |  139 lines
  1. /*
  2. Autodialer III Script   
  3. by Steven Kieffer [72027,2532]
  4. 1/09/1991
  5. */
  6.  
  7.  
  8.  
  9. integer phone1, phone2, phone3, phone4, phone5, counter, repeat_inf
  10. integer repeat_five
  11. string ph1, ph2, ph3, ph4, ph5, phone_dir, phone_number, new_phone
  12.  
  13. if online then Alarm : alert "You are still online !!!",ok : end
  14. phone_dir = dirxws + "\autodial.dat"
  15. trap on
  16. display off
  17. repeat_five is true
  18. gosub get_choices
  19.  
  20. label prog_start
  21.  
  22. dialogbox 34,23,130,125
  23.     ctext 4,4,120,10,"AUTODIALER III  by Steven Kieffer"
  24.     groupbox 8,20,70,75,"Phone choices:"
  25.     checkbox 12,32,50,12,ph1,phone1,tabstop focus
  26.     checkbox 12,44,50,12,ph2,phone2,tabstop
  27.     checkbox 12,56,50,12,ph3,phone3,tabstop
  28.     checkbox 12,68,50,12,ph4,phone4,tabstop
  29.     checkbox 12,80,50,12,ph5,phone5,tabstop
  30.     radiobutton 12,100,90,10,"&Repeat infinitely",repeat_inf,tabstop group
  31.     radiobutton 12,110,90,10,"Repeat 5 times",repeat_five
  32.     defpushbutton 85,32,36,14,"OK",ok,tabstop group
  33.     pushbutton 85,52,36,14,"CANCEL",cancel,tabstop
  34.     pushbutton 85,72,36,14,"&CONFIG",tabstop
  35. enddialog
  36.  
  37. if choice is 2 then end
  38. if choice is 3 then goto config
  39.  
  40. message "Initializing modem..."
  41. go : wait 1 second
  42. reply modeminit
  43. wait 1 second
  44. repeat
  45.  
  46.     if repeat_five is true then counter=counter+1
  47.     if phone1 then load ph1 : gosub service
  48.     if phone2 then load ph2 : gosub service
  49.     if phone3 then load ph3 : gosub service
  50.     if phone4 then load ph4 : gosub service
  51.     if phone5 then load ph5 : gosub service
  52.  
  53. until counter is 5
  54.  
  55. alarm : alarm : alarm
  56. alert "Autodial completed. No connections made.",ok : END
  57.  
  58.  
  59. --- START CALLING PROCEDURE TO MODEM
  60. label SERVICE
  61.  
  62. if upcase(left(number)) is "X" then phone_number = dialprefix + number
  63.     else phone_number = dialprefix + outnumber + number
  64.  
  65. if upcase(left(number)) is "L" then phone_number = dialprefix + ldnumber + number
  66.     
  67. message "Dialing -- " + description + "." + "  Press ESC to halt.  (" + str(counter) + ")"
  68. go : wait 1 second
  69. reply phone_number    
  70.  
  71. watch 30 seconds for
  72.     "BUSY" : --- recycle dial
  73.     "CONNECT" : alarm : if null(script) then end else chain script
  74.     "ERROR" : alert "Modem error !!!  Check your modem settings.", ok
  75.     "NO DIAL" : alert "No dial Tone !!!  Check your phone line.", ok
  76.     "NO CARRIER" : --- recycle dial
  77.     count 15 : alarm : if null(script) then end else chain script
  78.     key 27 : bye : end
  79. endwatch
  80.  
  81. off
  82. return
  83.  
  84.  
  85. --- LOAD SELECTION OF BBS'S TO CHOOSE FROM.
  86. label get_choices
  87.  
  88. if not exists(phone_dir) then
  89.     {
  90.     alarm : alarm
  91.     alert "No autodial file!  Please run CONFIG.", ok
  92.     return
  93.     }
  94.  
  95. open input phone_dir as #1
  96. read #1, ph1, ph2, ph3, ph4, ph5
  97. close
  98. return
  99.  
  100.  
  101. --- CONFIGURATION MENU TO ADD OR DELETE CHOICES
  102. label config
  103.  
  104. dialogbox 34,23,130,125
  105.     ctext 4,4,120,10,"==  Configuration Menu  =="
  106.     groupbox 8,20,70,75,"Phone delete/add:"
  107.     checkbox 12,32,50,12,ph1,phone1,tabstop
  108.     checkbox 12,44,50,12,ph2,phone2,tabstop
  109.     checkbox 12,56,50,12,ph3,phone3,tabstop
  110.     checkbox 12,68,50,12,ph4,phone4,tabstop
  111.     checkbox 12,80,50,12,ph5,phone5,tabstop
  112.     ltext 12,107,65,8,"&New phone entry:"
  113.     edittext 75,105,45,12,"",new_phone,tabstop
  114.     defpushbutton 85,32,36,14,"OK",ok,tabstop group
  115.     pushbutton 85,52,36,14,"EXIT",cancel,tabstop
  116. enddialog
  117.  
  118. if choice is 2 then goto prog_start 
  119. if not exists(dirxwp + "\" + new_phone + ".xwp") and not null(new_phone) then
  120.     {
  121.     alarm
  122.     alert new_phone + " does not exist !",ok
  123.     goto config
  124.     }
  125. if phone1 then ph1 = new_phone : phone1 is false
  126. if phone2 then ph2 = new_phone : phone2 is false
  127. if phone3 then ph3 = new_phone : phone3 is false
  128. if phone4 then ph4 = new_phone : phone4 is false
  129. if phone5 then ph5 = new_phone : phone5 is false
  130.  
  131. open output phone_dir as #1
  132. write #1, ph1, ph2, ph3, ph4, ph5
  133. close
  134. goto config
  135.  
  136.  
  137.  
  138.  
  139.